(direct-print-region-helper): Check for printer

being t as well as a string.

diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el
index 825281b11f811b2790cee84742ae504e97ea6489..2d5377ef747701b331ff39136cad15542b507023 100644 (file)
--- a/lisp/dos-w32.el
+++ b/lisp/dos-w32.el
@@ -292,7 +292,7 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"."
     ;; asking command.com to copy the file.
     ;; No action is needed for UNC printer names, which is just as well
     ;; because `expand-file-name' doesn't support UNC names on MS-DOS.
-    (if (not (string-match "^\\\\" printer))
+    (if (and (stringp printer) (not (string-match "^\\\\" printer)))
        (setq printer (expand-file-name printer safe-dir)))
     ;; Handle known programs specially where necessary.
     (unwind-protect